home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
util
/
cdity
/
ClipTool38_1.lha
/
ClipTool
/
rexx
/
EDCopy.ed
next >
Wrap
Text File
|
1994-01-25
|
756b
|
29 lines
/*
* EDCopy - Copy the marked block to the current clipboard unit.
* Assumes ClipTool is running.
* You can add it to Ed's EDIT menu if you put
* the following command in S:Ed-startup:
*
* SI n 2 "Copy to Clipboard" "rx!EDCopy.ed!"
*
* where n is the menu item number.
*
* You can also add it to a key with something like
*
* SF n "rx!EDCopy.ed!"
*
* where n range from 1 to 57. Please refer to the Ed docs for details.
*/
tempfile = 'T:EDCLIP-'pragma('ID')
options failat 21
'WB!'tempfile'!' /* Tell Ed to write the block */
if rc = 0 then do
address cliptool 'open filename' tempfile
address cliptool 'cut'
address command 'delete quiet force' tempfile
'SM!Copied!'
end
else 'SM!No block selected!'
exit